home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 5 / Gold Medal Software - Volume 5 (Gold Medal) (1995).iso / games / egavga / numgam11.arj / NUMBER.BAS < prev    next >
BASIC Source File  |  1994-12-14  |  1KB  |  63 lines
  1. REM ** Start of game= War of 2010
  2. RANDOMIZE TIMER
  3. CLS
  4. COLOR 4
  5. PRINT "********************************************************************************"
  6. SCREEN 12
  7. startCol = 0
  8. startRow = 0
  9. endCol = 639
  10. endRow = 479
  11. FOR p = 1 TO 40
  12. COLOR 3
  13. LINE (startCol, startRow)-(endCol, endRow), , B
  14. startCol = startCol + 5
  15. startRow = startRow + 5
  16. endCol = endCol - 5
  17. endRow = endRow - 5
  18. NEXT p
  19. LOCATE 15, 32
  20. COLOR 2
  21. PRINT "Welcome to War of 2010!"
  22. SLEEP 2
  23. PRINT
  24. PRINT
  25. PRINT
  26. PRINT
  27. PRINT
  28. PRINT
  29. PRINT
  30. PRINT
  31. PRINT
  32. PRINT
  33. PRINT
  34. PRINT
  35. PRINT
  36. PRINT
  37. PRINT
  38. PRINT
  39. PRINT
  40. PRINT "The computer is thinking of a number between 1-100"
  41. SLEEP 2
  42. LET a = INT(100 * RND) + 1
  43. PRINT "Ok... It has one"
  44. PRINT
  45. PRINT
  46. PRINT
  47. PRINT
  48. PRINT
  49. PRINT "Ok... Try to guess the number"
  50. PRINT "You have 10 chances"
  51. FOR x = 1 TO 10
  52. INPUT b
  53. IF b < a THEN PRINT "Not quite, to small"
  54. IF b > a THEN PRINT "Not quite, to large"
  55. IF b = a THEN PLAY "l16<b.>c d.c# d.c# l4 d l16 e.<b>l4 c l16 d.<a l4 b"
  56. IF b = a THEN PRINT "YOU WIN!!!!!"
  57. IF b = a THEN END
  58. NEXT x
  59. PRINT "Sorry you lost... Try again!"
  60. PRINT "This was created on The Magician's Corner BBS  617-277-5846"
  61. END
  62.  
  63.